home *** CD-ROM | disk | FTP | other *** search
/ Windows 6-Pak - Disc 4 / Windows 6-Pak (InfoMagic) (Disc 4) (1999).ISO / 3D-Graphics-Editors / lsystem3.exe / L System 3 / _setup.1 / SIERPIN2.LS < prev    next >
Text File  |  1998-05-11  |  1KB  |  27 lines
  1. #╔═════════════════╤═══════════════════════════════╗
  2. #║  Sierpin2.ls    │    (c) C.J. van der Mark      ║  
  3. #╟─────────────────┴───────────────────────────────╢
  4. #║      Questions about Lparser files to:          ║
  5. #║        Internet  cvdmark@xs4all.nl              ║
  6. #║           Fido      2:283/203.11                ║
  7. #╠═════════════════════════════════════════════════╩═══════════╗
  8. #║ This ls produces the 3D Sierpinski gaskets, "wire-form".    ║
  9. #║ Recursionlevel 4 will produce the 1th order gasket, 5 the   ║
  10. #║ 2th etc.                                                    ║
  11. #║                                                             ║
  12. #║ To close the bottom of the tetraeders,                      ║
  13. #║ replace b by b=[[+F++++F++++f]{+f++++f++++f]}]              ║
  14. #╚═════════════════════════════════════════════════════════════╝
  15. 8
  16. 30
  17. 1
  18. C
  19. B=[[^ea^(70)b]>>&ed]['(.5)C]+++f---
  20. C=[BB+++^^^^f---B'(.82)f'(1.22)---^'(.574)f'(1.74)+++>>>>>B]+++ff---
  21. a=[+F++++F++++F]
  22. b=[[+F++++F++++F]{[+F++++F++++F]}]
  23. # b=[[+F++++F++++f]{+f++++f++++f]}]
  24. d=[+f++++F++++f]
  25. e=(19.5)
  26. @
  27.